home *** CD-ROM | disk | FTP | other *** search
open in: 
MacOS 8.1
|
Win98
|
DOS
browse contents |
view JSON data
|
view as text
This file was processed as: Delphi Borland Form
(archive/borlandDelphiForm).
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 100%
| dexvert
| Delphi Borland Form (archive/borlandDelphiForm)
| magic
| Supported |
| 100%
| file
| Delphi compiled form 'TScriptModel'
| default
| |
| 99%
| file
| data
| default
| |
| 100%
| TrID
| Borland Form (generic)
| default
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 54 50 46 30 0c 54 53 63 | 72 69 70 74 4d 6f 64 65 |TPF0.TSc|riptMode|
|00000010| 6c 00 0a 4f 4d 44 61 74 | 61 54 79 70 65 07 08 64 |l..OMDat|aType..d|
|00000020| 74 53 79 73 74 65 6d 0a | 52 65 73 75 6c 74 43 6f |tSystem.|ResultCo|
|00000030| 64 65 02 00 0c 53 63 72 | 69 70 74 73 2e 47 55 49 |de...Scr|ipts.GUI|
|00000040| 44 06 26 7b 34 44 45 45 | 30 32 37 44 2d 45 38 41 |D.&{4DEE|027D-E8A|
|00000050| 34 2d 34 43 31 38 2d 38 | 33 34 46 2d 39 34 30 38 |4-4C18-8|34F-9408|
|00000060| 39 42 37 31 45 41 32 36 | 7d 07 53 63 72 69 70 74 |9B71EA26|}.Script|
|00000070| 73 0e 01 04 47 55 49 44 | 06 26 7b 44 35 43 36 43 |s...GUID|.&{D5C6C|
|00000080| 37 43 41 2d 43 43 41 39 | 2d 34 38 41 44 2d 41 34 |7CA-CCA9|-48AD-A4|
|00000090| 39 31 2d 35 39 30 37 36 | 35 30 35 46 45 39 41 7d |91-59076|505FE9A}|
|000000a0| 05 53 74 61 74 65 07 0a | 6f 6d 49 6e 73 65 72 74 |.State..|omInsert|
|000000b0| 65 64 0a 53 63 72 69 70 | 74 4e 61 6d 65 06 14 53 |ed.Scrip|tName..S|
|000000c0| 65 61 72 63 68 20 62 79 | 20 44 61 74 65 20 52 61 |earch by| Date Ra|
|000000d0| 6e 67 65 06 41 75 74 68 | 6f 72 06 11 48 42 20 76 |nge.Auth|or..HB v|
|000000e0| 61 6e 20 5a 77 69 65 74 | 65 72 69 6e 67 12 41 75 |an Zwiet|ering.Au|
|000000f0| 74 68 6f 72 49 6e 66 6f | 2e 53 74 72 69 6e 67 73 |thorInfo|.Strings|
|00000100| 01 06 17 68 74 74 70 3a | 2f 2f 77 77 77 2e 69 64 |...http:|//www.id|
|00000110| 69 6d 61 67 65 72 2e 63 | 6f 6d 00 10 53 68 6f 72 |imager.c|om..Shor|
|00000120| 74 44 65 73 63 72 69 70 | 74 69 6f 6e 06 4b 54 68 |tDescrip|tion.KTh|
|00000130| 69 73 20 73 65 61 72 63 | 68 20 73 63 72 69 70 74 |is searc|h script|
|00000140| 20 61 6c 6c 6f 77 73 20 | 79 6f 75 20 74 6f 20 73 | allows |you to s|
|00000150| 65 61 72 63 68 20 66 6f | 72 20 63 61 74 61 6c 6f |earch fo|r catalo|
|00000160| 67 20 69 74 65 6d 73 20 | 62 61 73 65 64 20 6f 6e |g items |based on|
|00000170| 20 61 20 70 65 72 69 6f | 64 0a 49 74 65 6d 73 2e | a perio|d.Items.|
|00000180| 47 55 49 44 06 26 7b 45 | 43 42 30 39 32 38 43 2d |GUID.&{E|CB0928C-|
|00000190| 37 45 45 39 2d 34 44 35 | 32 2d 39 38 41 35 2d 44 |7EE9-4D5|2-98A5-D|
|000001a0| 35 42 44 38 41 39 36 38 | 30 41 33 7d 05 49 74 65 |5BD8A968|0A3}.Ite|
|000001b0| 6d 73 0e 01 04 47 55 49 | 44 06 26 7b 38 39 39 38 |ms...GUI|D.&{8998|
|000001c0| 43 43 41 45 2d 44 30 44 | 34 2d 34 39 31 45 2d 39 |CCAE-D0D|4-491E-9|
|000001d0| 30 46 34 2d 41 30 39 38 | 30 32 32 43 34 46 41 45 |0F4-A098|022C4FAE|
|000001e0| 7d 05 53 74 61 74 65 07 | 0a 6f 6d 49 6e 73 65 72 |}.State.|.omInser|
|000001f0| 74 65 64 08 49 74 65 6d | 4e 61 6d 65 06 14 53 65 |ted.Item|Name..Se|
|00000200| 61 72 63 68 20 62 79 20 | 44 61 74 65 20 52 61 6e |arch by |Date Ran|
|00000210| 67 65 12 53 6f 75 72 63 | 65 43 6f 64 65 2e 53 74 |ge.Sourc|eCode.St|
|00000220| 72 69 6e 67 73 01 06 48 | 70 72 6f 63 65 64 75 72 |rings..H|procedur|
|00000230| 65 20 49 6e 69 74 69 61 | 6c 69 7a 65 3b 20 20 20 |e Initia|lize; |
|00000240| 20 2f 2f 20 75 73 65 20 | 74 68 69 73 20 70 72 6f | // use |this pro|
|00000250| 63 65 64 75 72 65 20 66 | 6f 72 20 67 6c 6f 62 61 |cedure f|or globa|
|00000260| 6c 20 69 6e 69 74 69 61 | 6c 69 7a 61 74 69 6f 6e |l initia|lization|
|00000270| 06 05 62 65 67 69 6e 06 | 26 20 20 4d 61 69 6e 46 |..begin.|& MainF|
|00000280| 6f 72 6d 2e 50 6f 73 69 | 74 69 6f 6e 20 3a 3d 20 |orm.Posi|tion := |
|00000290| 70 6f 53 63 72 65 65 6e | 43 65 6e 74 65 72 3b 12 |poScreen|Center;.|
|000002a0| 00 00 00 00 06 65 20 20 | 64 74 70 46 72 6f 6d 2e |.....e |dtpFrom.|
|000002b0| 44 61 74 65 20 3a 3d 20 | 52 65 61 64 46 72 6f 6d |Date := |ReadFrom|
|000002c0| 52 65 67 69 73 74 72 79 | 20 28 27 53 63 72 69 70 |Registry| ('Scrip|
|000002d0| 74 73 27 2c 20 27 53 65 | 61 72 63 68 44 61 74 65 |ts', 'Se|archDate|
|000002e0| 5c 46 72 6f 6d 27 2c 20 | 42 65 67 69 6e 4f 66 4d |\From', |BeginOfM|
|000002f0| 6f 6e 74 68 20 28 49 6e | 63 4d 6f 6e 74 68 20 28 |onth (In|cMonth (|
|00000300| 4e 6f 77 2c 20 2d 31 29 | 29 29 3b 06 52 20 20 64 |Now, -1)|));.R d|
|00000310| 74 70 54 6f 2e 44 61 74 | 65 20 20 20 3a 3d 20 52 |tpTo.Dat|e := R|
|00000320| 65 61 64 46 72 6f 6d 52 | 65 67 69 73 74 72 79 20 |eadFromR|egistry |
|00000330| 28 27 53 63 72 69 70 74 | 73 27 2c 20 27 53 65 61 |('Script|s', 'Sea|
|00000340| 72 63 68 44 61 74 65 5c | 54 6f 27 2c 20 45 6e 64 |rchDate\|To', End|
|00000350| 4f 66 4d 6f 6e 74 68 20 | 28 4e 6f 77 29 29 3b 06 |OfMonth |(Now));.|
|00000360| 04 65 6e 64 3b 12 00 00 | 00 00 06 46 70 72 6f 63 |.end;...|...Fproc|
|00000370| 65 64 75 72 65 20 46 69 | 6e 61 6c 69 7a 65 3b 20 |edure Fi|nalize; |
|00000380| 20 20 20 20 20 2f 2f 20 | 75 73 65 20 74 68 69 73 | // |use this|
|00000390| 20 70 72 6f 63 65 64 75 | 72 65 20 66 6f 72 20 67 | procedu|re for g|
|000003a0| 6c 6f 62 61 6c 20 66 69 | 6e 61 6c 69 7a 61 74 69 |lobal fi|nalizati|
|000003b0| 6f 6e 06 05 62 65 67 69 | 6e 06 3f 20 20 57 72 69 |on..begi|n.? Wri|
|000003c0| 74 65 54 6f 52 65 67 69 | 73 74 72 79 20 28 27 53 |teToRegi|stry ('S|
|000003d0| 63 72 69 70 74 73 27 2c | 20 27 53 65 61 72 63 68 |cripts',| 'Search|
|000003e0| 44 61 74 65 5c 46 72 6f | 6d 27 2c 20 64 74 70 46 |Date\Fro|m', dtpF|
|000003f0| 72 6f 6d 2e 44 61 74 65 | 29 3b 06 3b 20 20 57 72 |rom.Date|);.; Wr|
|00000400| 69 74 65 54 6f 52 65 67 | 69 73 74 72 79 20 28 27 |iteToReg|istry ('|
|00000410| 53 63 72 69 70 74 73 27 | 2c 20 27 53 65 61 72 63 |Scripts'|, 'Searc|
|00000420| 68 44 61 74 65 5c 54 6f | 27 2c 20 64 74 70 54 6f |hDate\To|', dtpTo|
|00000430| 2e 44 61 74 65 29 3b 06 | 04 65 6e 64 3b 12 00 00 |.Date);.|.end;...|
|00000440| 00 00 06 18 70 72 6f 63 | 65 64 75 72 65 20 70 62 |....proc|edure pb|
|00000450| 53 65 61 72 63 68 43 6c | 69 63 6b 3b 06 03 76 61 |SearchCl|ick;..va|
|00000460| 72 06 1b 20 20 41 43 61 | 74 49 74 65 6d 73 3a 20 |r.. ACa|tItems: |
|00000470| 54 43 61 74 61 6c 6f 67 | 49 74 65 6d 73 3b 06 22 |TCatalog|Items;."|
|00000480| 20 20 41 53 65 61 72 63 | 68 47 72 6f 75 70 3a 20 | ASearc|hGroup: |
|00000490| 54 43 61 74 61 6c 6f 67 | 50 72 6f 70 47 72 6f 75 |TCatalog|PropGrou|
|000004a0| 70 3b 06 13 20 20 41 50 | 65 72 69 6f 64 3a 20 54 |p;.. AP|eriod: T|
|000004b0| 50 65 72 69 6f 64 3b 06 | 05 62 65 67 69 6e 06 1f |Period;.|.begin..|
|000004c0| 20 20 53 63 72 65 65 6e | 2e 43 75 72 73 6f 72 20 | Screen|.Cursor |
|000004d0| 3a 3d 20 63 72 48 6f 75 | 72 47 6c 61 73 73 3b 12 |:= crHou|rGlass;.|
|000004e0| 00 00 00 00 06 36 20 20 | 41 43 61 74 49 74 65 6d |.....6 |ACatItem|
|000004f0| 73 20 3a 3d 20 54 43 61 | 74 61 6c 6f 67 49 74 65 |s := TCa|talogIte|
|00000500| 6d 73 2e 43 72 65 61 74 | 65 28 54 43 61 74 61 6c |ms.Creat|e(TCatal|
|00000510| 6f 67 49 74 65 6d 2c 20 | 27 27 29 3b 06 30 20 20 |ogItem, |'');.0 |
|00000520| 41 53 65 61 72 63 68 47 | 72 6f 75 70 20 3a 3d 20 |ASearchG|roup := |
|00000530| 54 43 61 74 61 6c 6f 67 | 50 72 6f 70 47 72 6f 75 |TCatalog|PropGrou|
|00000540| 70 2e 43 72 65 61 74 65 | 28 6e 69 6c 29 3b 06 05 |p.Create|(nil);..|
|00000550| 20 20 74 72 79 06 28 20 | 20 20 20 41 50 65 72 69 | try.( | APeri|
|00000560| 6f 64 20 3a 3d 20 41 53 | 65 61 72 63 68 47 72 6f |od := AS|earchGro|
|00000570| 75 70 2e 50 65 72 69 6f | 64 73 2e 41 64 64 3b 06 |up.Perio|ds.Add;.|
|00000580| 2e 20 20 20 20 41 50 65 | 72 69 6f 64 2e 46 72 6f |. APe|riod.Fro|
|00000590| 6d 4d 6f 6d 65 6e 74 20 | 3a 3d 20 54 72 75 6e 63 |mMoment |:= Trunc|
|000005a0| 28 64 74 70 46 72 6f 6d | 2e 44 61 74 65 29 3b 06 |(dtpFrom|.Date);.|
|000005b0| 30 20 20 20 20 41 50 65 | 72 69 6f 64 2e 54 6f 4d |0 APe|riod.ToM|
|000005c0| 6f 6d 65 6e 74 20 20 20 | 3a 3d 20 54 72 75 6e 63 |oment |:= Trunc|
|000005d0| 28 64 74 70 54 6f 2e 44 | 61 74 65 29 20 2b 20 31 |(dtpTo.D|ate) + 1|
|000005e0| 3b 12 00 00 00 00 06 38 | 20 20 20 20 41 43 61 74 |;......8| ACat|
|000005f0| 49 74 65 6d 73 2e 4c 61 | 73 74 53 6f 72 74 20 20 |Items.La|stSort |
|00000600| 20 20 20 20 20 20 20 3a | 3d 20 53 65 61 72 63 68 | :|= Search|
|00000610| 52 65 73 75 6c 74 2e 4c | 61 73 74 53 6f 72 74 3b |Result.L|astSort;|
|00000620| 06 3d 20 20 20 20 41 43 | 61 74 49 74 65 6d 73 2e |.= AC|atItems.|
|00000630| 4c 61 73 74 53 6f 72 74 | 4f 72 64 65 72 20 20 20 |LastSort|Order |
|00000640| 20 3a 3d 20 53 65 61 72 | 63 68 52 65 73 75 6c 74 | := Sear|chResult|
|00000650| 2e 4c 61 73 74 53 6f 72 | 74 4f 72 64 65 72 3b 12 |.LastSor|tOrder;.|
|00000660| 00 00 00 00 06 52 20 20 | 20 20 43 61 74 61 6c 6f |.....R | Catalo|
|00000670| 67 2e 45 6e 75 6d 47 72 | 6f 75 70 52 65 73 75 6c |g.EnumGr|oupResul|
|00000680| 74 20 28 41 53 65 61 72 | 63 68 47 72 6f 75 70 2c |t (ASear|chGroup,|
|00000690| 20 41 43 61 74 49 74 65 | 6d 73 2c 20 4f 70 74 69 | ACatIte|ms, Opti|
|000006a0| 6f 6e 73 2e 43 61 74 61 | 6c 6f 67 44 69 73 70 6c |ons.Cata|logDispl|
|000006b0| 61 79 2c 20 27 27 29 3b | 12 00 00 00 00 06 36 20 |ay, '');|......6 |
|000006c0| 20 20 20 53 65 61 72 63 | 68 52 65 73 75 6c 74 2e | Searc|hResult.|
|000006d0| 49 74 65 6d 73 2e 44 61 | 74 61 53 65 74 73 20 3a |Items.Da|taSets :|
|000006e0| 3d 20 41 43 61 74 49 74 | 65 6d 73 2e 44 61 74 61 |= ACatIt|ems.Data|
|000006f0| 53 65 74 73 3b 06 36 20 | 20 20 20 2f 2f 41 43 61 |Sets;.6 | //ACa|
|00000700| 74 49 74 65 6d 73 2e 50 | 75 73 68 54 6f 43 6f 6c |tItems.P|ushToCol|
|00000710| 6c 65 63 74 69 6f 6e 20 | 28 53 65 61 72 63 68 52 |lection |(SearchR|
|00000720| 65 73 75 6c 74 2c 20 54 | 72 75 65 29 3b 06 09 20 |esult, T|rue);.. |
|00000730| 20 66 69 6e 61 6c 6c 79 | 06 13 20 20 20 20 41 43 | finally|.. AC|
|00000740| 61 74 49 74 65 6d 73 2e | 46 72 65 65 3b 06 16 20 |atItems.|Free;.. |
|00000750| 20 20 20 41 53 65 61 72 | 63 68 47 72 6f 75 70 2e | ASear|chGroup.|
|00000760| 46 72 65 65 3b 06 06 20 | 20 65 6e 64 3b 12 00 00 |Free;.. | end;...|
|00000770| 00 00 06 1d 20 20 53 63 | 72 65 65 6e 2e 43 75 72 |.... Sc|reen.Cur|
|00000780| 73 6f 72 20 3a 3d 20 63 | 72 44 65 66 61 75 6c 74 |sor := c|rDefault|
|00000790| 3b 12 00 00 00 00 06 11 | 20 20 4d 61 69 6e 46 6f |;.......| MainFo|
|000007a0| 72 6d 2e 43 6c 6f 73 65 | 3b 06 04 65 6e 64 3b 12 |rm.Close|;..end;.|
|000007b0| 00 00 00 00 12 00 00 00 | 00 00 07 56 65 72 73 69 |........|...Versi|
|000007c0| 6f 6e 06 03 31 2e 30 07 | 57 69 74 68 47 55 49 09 |on..1.0.|WithGUI.|
|000007d0| 0b 4c 61 73 74 55 70 64 | 61 74 65 64 05 00 c8 2a |.LastUpd|ated...*|
|000007e0| 58 0b b8 23 99 0e 40 0a | 50 65 72 73 69 73 74 65 |X..#..@.|Persiste|
|000007f0| 6e 74 08 0a 46 6f 72 6d | 53 74 72 65 61 6d 0a 76 |nt..Form|Stream.v|
|00000800| 09 00 00 54 50 46 30 0d | 54 53 63 72 69 70 74 44 |...TPF0.|TScriptD|
|00000810| 65 73 69 67 6e 0f 66 72 | 6d 53 65 61 72 63 68 42 |esign.fr|mSearchB|
|00000820| 79 44 61 74 65 04 4c 65 | 66 74 02 00 03 54 6f 70 |yDate.Le|ft...Top|
|00000830| 02 00 05 57 69 64 74 68 | 03 fe 00 06 48 65 69 67 |...Width|....Heig|
|00000840| 68 74 03 a2 00 07 43 61 | 70 74 69 6f 6e 06 14 53 |ht....Ca|ption..S|
|00000850| 65 61 72 63 68 20 62 79 | 20 44 61 74 65 20 52 61 |earch by| Date Ra|
|00000860| 6e 67 65 05 43 6f 6c 6f | 72 07 09 63 6c 42 74 6e |nge.Colo|r..clBtn|
|00000870| 46 61 63 65 0c 46 6f 6e | 74 2e 43 68 61 72 73 65 |Face.Fon|t.Charse|
|00000880| 74 07 0f 44 45 46 41 55 | 4c 54 5f 43 48 41 52 53 |t..DEFAU|LT_CHARS|
|00000890| 45 54 0a 46 6f 6e 74 2e | 43 6f 6c 6f 72 07 0c 63 |ET.Font.|Color..c|
|000008a0| 6c 57 69 6e 64 6f 77 54 | 65 78 74 0b 46 6f 6e 74 |lWindowT|ext.Font|
|000008b0| 2e 48 65 69 67 68 74 02 | f5 09 46 6f 6e 74 2e 4e |.Height.|..Font.N|
|000008c0| 61 6d 65 06 0d 4d 53 20 | 53 61 6e 73 20 53 65 72 |ame..MS |Sans Ser|
|000008d0| 69 66 0a 46 6f 6e 74 2e | 53 74 79 6c 65 0b 00 0e |if.Font.|Style...|
|000008e0| 4f 6c 64 43 72 65 61 74 | 65 4f 72 64 65 72 08 0d |OldCreat|eOrder..|
|000008f0| 50 69 78 65 6c 73 50 65 | 72 49 6e 63 68 02 60 0a |PixelsPe|rInch.`.|
|00000900| 54 65 78 74 48 65 69 67 | 68 74 02 0d 00 06 54 4c |TextHeig|ht....TL|
|00000910| 61 62 65 6c 06 4c 61 62 | 65 6c 31 04 4c 65 66 74 |abel.Lab|el1.Left|
|00000920| 02 0c 03 54 6f 70 02 0e | 05 57 69 64 74 68 02 17 |...Top..|.Width..|
|00000930| 06 48 65 69 67 68 74 02 | 0d 07 43 61 70 74 69 6f |.Height.|..Captio|
|00000940| 6e 06 04 46 72 6f 6d 00 | 00 06 54 4c 61 62 65 6c |n..From.|..TLabel|
|00000950| 06 4c 61 62 65 6c 32 04 | 4c 65 66 74 02 0a 03 54 |.Label2.|Left...T|
|00000960| 6f 70 02 29 05 57 69 64 | 74 68 02 0d 06 48 65 69 |op.).Wid|th...Hei|
|00000970| 67 68 74 02 0d 07 43 61 | 70 74 69 6f 6e 06 02 54 |ght...Ca|ption..T|
|00000980| 6f 00 00 0f 54 44 61 74 | 65 54 69 6d 65 50 69 63 |o...TDat|eTimePic|
|00000990| 6b 65 72 07 64 74 70 46 | 72 6f 6d 04 4c 65 66 74 |ker.dtpF|rom.Left|
|000009a0| 02 3a 03 54 6f 70 02 0a | 05 57 69 64 74 68 03 8a |.:.Top..|.Width..|
|000009b0| 00 06 48 65 69 67 68 74 | 02 15 04 44 61 74 65 05 |..Height|...Date.|
|000009c0| 00 60 f4 63 30 d0 7c 97 | 0e 40 04 54 69 6d 65 05 |.`.c0.|.|.@.Time.|
|000009d0| 00 60 f4 63 30 d0 7c 97 | 0e 40 08 54 61 62 4f 72 |.`.c0.|.|.@.TabOr|
|000009e0| 64 65 72 02 00 00 00 07 | 54 42 75 74 74 6f 6e 08 |der.....|TButton.|
|000009f0| 70 62 53 65 61 72 63 68 | 04 4c 65 66 74 02 3a 03 |pbSearch|.Left.:.|
|00000a00| 54 6f 70 02 42 05 57 69 | 64 74 68 02 4b 06 48 65 |Top.B.Wi|dth.K.He|
|00000a10| 69 67 68 74 02 19 07 43 | 61 70 74 69 6f 6e 06 06 |ight...C|aption..|
|00000a20| 53 65 61 72 63 68 08 54 | 61 62 4f 72 64 65 72 02 |Search.T|abOrder.|
|00000a30| 02 00 00 0f 54 44 61 74 | 65 54 69 6d 65 50 69 63 |....TDat|eTimePic|
|00000a40| 6b 65 72 05 64 74 70 54 | 6f 04 4c 65 66 74 02 3a |ker.dtpT|o.Left.:|
|00000a50| 03 54 6f 70 02 24 05 57 | 69 64 74 68 03 8a 00 06 |.Top.$.W|idth....|
|00000a60| 48 65 69 67 68 74 02 15 | 04 44 61 74 65 05 00 30 |Height..|.Date..0|
|00000a70| a7 f2 68 d0 7c 97 0e 40 | 04 54 69 6d 65 05 00 30 |..h.|..@|.Time..0|
|00000a80| a7 f2 68 d0 7c 97 0e 40 | 08 54 61 62 4f 72 64 65 |..h.|..@|.TabOrde|
|00000a90| 72 02 01 00 00 0b 54 69 | 64 53 63 72 69 70 74 65 |r.....Ti|dScripte|
|00000aa0| 72 00 12 53 6f 75 72 63 | 65 43 6f 64 65 2e 53 74 |r..Sourc|eCode.St|
|00000ab0| 72 69 6e 67 73 01 06 48 | 70 72 6f 63 65 64 75 72 |rings..H|procedur|
|00000ac0| 65 20 49 6e 69 74 69 61 | 6c 69 7a 65 3b 20 20 20 |e Initia|lize; |
|00000ad0| 20 2f 2f 20 75 73 65 20 | 74 68 69 73 20 70 72 6f | // use |this pro|
|00000ae0| 63 65 64 75 72 65 20 66 | 6f 72 20 67 6c 6f 62 61 |cedure f|or globa|
|00000af0| 6c 20 69 6e 69 74 69 61 | 6c 69 7a 61 74 69 6f 6e |l initia|lization|
|00000b00| 06 05 62 65 67 69 6e 06 | 26 20 20 4d 61 69 6e 46 |..begin.|& MainF|
|00000b10| 6f 72 6d 2e 50 6f 73 69 | 74 69 6f 6e 20 3a 3d 20 |orm.Posi|tion := |
|00000b20| 70 6f 53 63 72 65 65 6e | 43 65 6e 74 65 72 3b 06 |poScreen|Center;.|
|00000b30| 00 06 65 20 20 64 74 70 | 46 72 6f 6d 2e 44 61 74 |..e dtp|From.Dat|
|00000b40| 65 20 3a 3d 20 52 65 61 | 64 46 72 6f 6d 52 65 67 |e := Rea|dFromReg|
|00000b50| 69 73 74 72 79 20 28 27 | 53 63 72 69 70 74 73 27 |istry ('|Scripts'|
|00000b60| 2c 20 27 53 65 61 72 63 | 68 44 61 74 65 5c 46 72 |, 'Searc|hDate\Fr|
|00000b70| 6f 6d 27 2c 20 42 65 67 | 69 6e 4f 66 4d 6f 6e 74 |om', Beg|inOfMont|
|00000b80| 68 20 28 49 6e 63 4d 6f | 6e 74 68 20 28 4e 6f 77 |h (IncMo|nth (Now|
|00000b90| 2c 20 2d 31 29 29 29 3b | 06 52 20 20 64 74 70 54 |, -1)));|.R dtpT|
|00000ba0| 6f 2e 44 61 74 65 20 20 | 20 3a 3d 20 52 65 61 64 |o.Date | := Read|
|00000bb0| 46 72 6f 6d 52 65 67 69 | 73 74 72 79 20 28 27 53 |FromRegi|stry ('S|
|00000bc0| 63 72 69 70 74 73 27 2c | 20 27 53 65 61 72 63 68 |cripts',| 'Search|
|00000bd0| 44 61 74 65 5c 54 6f 27 | 2c 20 45 6e 64 4f 66 4d |Date\To'|, EndOfM|
|00000be0| 6f 6e 74 68 20 28 4e 6f | 77 29 29 3b 06 04 65 6e |onth (No|w));..en|
|00000bf0| 64 3b 06 00 06 46 70 72 | 6f 63 65 64 75 72 65 20 |d;...Fpr|ocedure |
|00000c00| 46 69 6e 61 6c 69 7a 65 | 3b 20 20 20 20 20 20 2f |Finalize|; /|
|00000c10| 2f 20 75 73 65 20 74 68 | 69 73 20 70 72 6f 63 65 |/ use th|is proce|
|00000c20| 64 75 72 65 20 66 6f 72 | 20 67 6c 6f 62 61 6c 20 |dure for| global |
|00000c30| 66 69 6e 61 6c 69 7a 61 | 74 69 6f 6e 06 05 62 65 |finaliza|tion..be|
|00000c40| 67 69 6e 06 3f 20 20 57 | 72 69 74 65 54 6f 52 65 |gin.? W|riteToRe|
|00000c50| 67 69 73 74 72 79 20 28 | 27 53 63 72 69 70 74 73 |gistry (|'Scripts|
|00000c60| 27 2c 20 27 53 65 61 72 | 63 68 44 61 74 65 5c 46 |', 'Sear|chDate\F|
|00000c70| 72 6f 6d 27 2c 20 64 74 | 70 46 72 6f 6d 2e 44 61 |rom', dt|pFrom.Da|
|00000c80| 74 65 29 3b 06 3b 20 20 | 57 72 69 74 65 54 6f 52 |te);.; |WriteToR|
|00000c90| 65 67 69 73 74 72 79 20 | 28 27 53 63 72 69 70 74 |egistry |('Script|
|00000ca0| 73 27 2c 20 27 53 65 61 | 72 63 68 44 61 74 65 5c |s', 'Sea|rchDate\|
|00000cb0| 54 6f 27 2c 20 64 74 70 | 54 6f 2e 44 61 74 65 29 |To', dtp|To.Date)|
|00000cc0| 3b 06 04 65 6e 64 3b 06 | 00 06 18 70 72 6f 63 65 |;..end;.|...proce|
|00000cd0| 64 75 72 65 20 70 62 53 | 65 61 72 63 68 43 6c 69 |dure pbS|earchCli|
|00000ce0| 63 6b 3b 06 03 76 61 72 | 06 1b 20 20 41 43 61 74 |ck;..var|.. ACat|
|00000cf0| 49 74 65 6d 73 3a 20 54 | 43 61 74 61 6c 6f 67 49 |Items: T|CatalogI|
|00000d00| 74 65 6d 73 3b 06 22 20 | 20 41 53 65 61 72 63 68 |tems;." | ASearch|
|00000d10| 47 72 6f 75 70 3a 20 54 | 43 61 74 61 6c 6f 67 50 |Group: T|CatalogP|
|00000d20| 72 6f 70 47 72 6f 75 70 | 3b 06 13 20 20 41 50 65 |ropGroup|;.. APe|
|00000d30| 72 69 6f 64 3a 20 54 50 | 65 72 69 6f 64 3b 06 05 |riod: TP|eriod;..|
|00000d40| 62 65 67 69 6e 06 1f 20 | 20 53 63 72 65 65 6e 2e |begin.. | Screen.|
|00000d50| 43 75 72 73 6f 72 20 3a | 3d 20 63 72 48 6f 75 72 |Cursor :|= crHour|
|00000d60| 47 6c 61 73 73 3b 06 00 | 06 36 20 20 41 43 61 74 |Glass;..|.6 ACat|
|00000d70| 49 74 65 6d 73 20 3a 3d | 20 54 43 61 74 61 6c 6f |Items :=| TCatalo|
|00000d80| 67 49 74 65 6d 73 2e 43 | 72 65 61 74 65 28 54 43 |gItems.C|reate(TC|
|00000d90| 61 74 61 6c 6f 67 49 74 | 65 6d 2c 20 27 27 29 3b |atalogIt|em, '');|
|00000da0| 06 30 20 20 41 53 65 61 | 72 63 68 47 72 6f 75 70 |.0 ASea|rchGroup|
|00000db0| 20 3a 3d 20 54 43 61 74 | 61 6c 6f 67 50 72 6f 70 | := TCat|alogProp|
|00000dc0| 47 72 6f 75 70 2e 43 72 | 65 61 74 65 28 6e 69 6c |Group.Cr|eate(nil|
|00000dd0| 29 3b 06 05 20 20 74 72 | 79 06 28 20 20 20 20 41 |);.. tr|y.( A|
|00000de0| 50 65 72 69 6f 64 20 3a | 3d 20 41 53 65 61 72 63 |Period :|= ASearc|
|00000df0| 68 47 72 6f 75 70 2e 50 | 65 72 69 6f 64 73 2e 41 |hGroup.P|eriods.A|
|00000e00| 64 64 3b 06 2e 20 20 20 | 20 41 50 65 72 69 6f 64 |dd;.. | APeriod|
|00000e10| 2e 46 72 6f 6d 4d 6f 6d | 65 6e 74 20 3a 3d 20 54 |.FromMom|ent := T|
|00000e20| 72 75 6e 63 28 64 74 70 | 46 72 6f 6d 2e 44 61 74 |runc(dtp|From.Dat|
|00000e30| 65 29 3b 06 30 20 20 20 | 20 41 50 65 72 69 6f 64 |e);.0 | APeriod|
|00000e40| 2e 54 6f 4d 6f 6d 65 6e | 74 20 20 20 3a 3d 20 54 |.ToMomen|t := T|
|00000e50| 72 75 6e 63 28 64 74 70 | 54 6f 2e 44 61 74 65 29 |runc(dtp|To.Date)|
|00000e60| 20 2b 20 31 3b 06 00 06 | 38 20 20 20 20 41 43 61 | + 1;...|8 ACa|
|00000e70| 74 49 74 65 6d 73 2e 4c | 61 73 74 53 6f 72 74 20 |tItems.L|astSort |
|00000e80| 20 20 20 20 20 20 20 20 | 3a 3d 20 53 65 61 72 63 | |:= Searc|
|00000e90| 68 52 65 73 75 6c 74 2e | 4c 61 73 74 53 6f 72 74 |hResult.|LastSort|
|00000ea0| 3b 06 3d 20 20 20 20 41 | 43 61 74 49 74 65 6d 73 |;.= A|CatItems|
|00000eb0| 2e 4c 61 73 74 53 6f 72 | 74 4f 72 64 65 72 20 20 |.LastSor|tOrder |
|00000ec0| 20 20 3a 3d 20 53 65 61 | 72 63 68 52 65 73 75 6c | := Sea|rchResul|
|00000ed0| 74 2e 4c 61 73 74 53 6f | 72 74 4f 72 64 65 72 3b |t.LastSo|rtOrder;|
|00000ee0| 06 00 06 52 20 20 20 20 | 43 61 74 61 6c 6f 67 2e |...R |Catalog.|
|00000ef0| 45 6e 75 6d 47 72 6f 75 | 70 52 65 73 75 6c 74 20 |EnumGrou|pResult |
|00000f00| 28 41 53 65 61 72 63 68 | 47 72 6f 75 70 2c 20 41 |(ASearch|Group, A|
|00000f10| 43 61 74 49 74 65 6d 73 | 2c 20 4f 70 74 69 6f 6e |CatItems|, Option|
|00000f20| 73 2e 43 61 74 61 6c 6f | 67 44 69 73 70 6c 61 79 |s.Catalo|gDisplay|
|00000f30| 2c 20 27 27 29 3b 06 00 | 06 36 20 20 20 20 53 65 |, '');..|.6 Se|
|00000f40| 61 72 63 68 52 65 73 75 | 6c 74 2e 49 74 65 6d 73 |archResu|lt.Items|
|00000f50| 2e 44 61 74 61 53 65 74 | 73 20 3a 3d 20 41 43 61 |.DataSet|s := ACa|
|00000f60| 74 49 74 65 6d 73 2e 44 | 61 74 61 53 65 74 73 3b |tItems.D|ataSets;|
|00000f70| 06 36 20 20 20 20 2f 2f | 41 43 61 74 49 74 65 6d |.6 //|ACatItem|
|00000f80| 73 2e 50 75 73 68 54 6f | 43 6f 6c 6c 65 63 74 69 |s.PushTo|Collecti|
|00000f90| 6f 6e 20 28 53 65 61 72 | 63 68 52 65 73 75 6c 74 |on (Sear|chResult|
|00000fa0| 2c 20 54 72 75 65 29 3b | 06 09 20 20 66 69 6e 61 |, True);|.. fina|
|00000fb0| 6c 6c 79 06 13 20 20 20 | 20 41 43 61 74 49 74 65 |lly.. | ACatIte|
|00000fc0| 6d 73 2e 46 72 65 65 3b | 06 16 20 20 20 20 41 53 |ms.Free;|.. AS|
|00000fd0| 65 61 72 63 68 47 72 6f | 75 70 2e 46 72 65 65 3b |earchGro|up.Free;|
|00000fe0| 06 06 20 20 65 6e 64 3b | 06 00 06 1d 20 20 53 63 |.. end;|.... Sc|
|00000ff0| 72 65 65 6e 2e 43 75 72 | 73 6f 72 20 3a 3d 20 63 |reen.Cur|sor := c|
|00001000| 72 44 65 66 61 75 6c 74 | 3b 06 00 06 11 20 20 4d |rDefault|;.... M|
|00001010| 61 69 6e 46 6f 72 6d 2e | 43 6c 6f 73 65 3b 06 04 |ainForm.|Close;..|
|00001020| 65 6e 64 3b 06 00 06 00 | 00 10 53 61 76 65 43 6f |end;....|..SaveCo|
|00001030| 6d 70 69 6c 65 64 43 6f | 64 65 08 10 53 68 6f 72 |mpiledCo|de..Shor|
|00001040| 74 42 6f 6f 6c 65 61 6e | 45 76 61 6c 08 1d 4c 69 |tBoolean|Eval..Li|
|00001050| 62 4f 70 74 69 6f 6e 73 | 2e 53 65 61 72 63 68 50 |bOptions|.SearchP|
|00001060| 61 74 68 2e 53 74 72 69 | 6e 67 73 01 06 09 24 28 |ath.Stri|ngs...$(|
|00001070| 43 55 52 44 49 52 29 06 | 09 24 28 41 50 50 44 49 |CURDIR).|.$(APPDI|
|00001080| 52 29 06 2a 44 3a 5c 69 | 64 46 4f 58 50 72 6f 6a |R).*D:\i|dFOXProj|
|00001090| 65 63 74 65 6e 5c 49 6d | 61 67 65 42 72 6f 77 73 |ecten\Im|ageBrows|
|000010a0| 65 72 5c 53 63 72 69 70 | 74 4c 69 62 73 5c 00 18 |er\Scrip|tLibs\..|
|000010b0| 4c 69 62 4f 70 74 69 6f | 6e 73 2e 53 6f 75 72 63 |LibOptio|ns.Sourc|
|000010c0| 65 46 69 6c 65 45 78 74 | 06 04 2e 70 73 63 1a 4c |eFileExt|...psc.L|
|000010d0| 69 62 4f 70 74 69 6f 6e | 73 2e 43 6f 6d 70 69 6c |ibOption|s.Compil|
|000010e0| 65 64 46 69 6c 65 45 78 | 74 06 04 2e 70 63 75 19 |edFileEx|t...pcu.|
|000010f0| 4c 69 62 4f 70 74 69 6f | 6e 73 2e 55 73 65 53 63 |LibOptio|ns.UseSc|
|00001100| 72 69 70 74 46 69 6c 65 | 73 09 11 43 61 6c 6c 45 |riptFile|s..CallE|
|00001110| 78 65 63 48 6f 6f 6b 45 | 76 65 6e 74 08 07 43 61 |xecHookE|vent..Ca|
|00001120| 74 61 6c 6f 67 07 0d 43 | 61 74 61 6c 6f 67 2e 4f |talog..C|atalog.O|
|00001130| 77 6e 65 72 00 00 0d 54 | 53 53 45 76 65 6e 74 53 |wner...T|SSEventS|
|00001140| 61 76 65 72 00 0e 53 63 | 72 69 70 74 65 72 45 76 |aver..Sc|ripterEv|
|00001150| 65 6e 74 73 06 20 70 62 | 53 65 61 72 63 68 2e 4f |ents. pb|Search.O|
|00001160| 6e 43 6c 69 63 6b 3d 70 | 62 53 65 61 72 63 68 43 |nClick=p|bSearchC|
|00001170| 6c 69 63 6b 0d 0a 00 00 | 00 00 00 0c 4d 61 6e 75 |lick....|....Manu|
|00001180| 61 6c 46 6f 72 6d 61 74 | 07 07 73 6d 66 54 65 78 |alFormat|..smfTex|
|00001190| 74 14 53 63 72 69 70 74 | 52 65 73 6f 75 72 63 65 |t.Script|Resource|
|000011a0| 73 2e 47 55 49 44 06 26 | 7b 43 46 38 44 46 45 31 |s.GUID.&|{CF8DFE1|
|000011b0| 46 2d 41 36 30 38 2d 34 | 42 37 38 2d 39 33 42 37 |F-A608-4|B78-93B7|
|000011c0| 2d 46 35 45 44 36 42 41 | 44 32 42 32 43 7d 0f 53 |-F5ED6BA|D2B2C}.S|
|000011d0| 63 72 69 70 74 52 65 73 | 6f 75 72 63 65 73 0e 00 |criptRes|ources..|
|000011e0| 07 56 65 72 73 69 6f 6e | 06 03 31 2e 30 00 00 0b |.Version|..1.0...|
|000011f0| 47 72 6f 75 70 73 2e 47 | 55 49 44 06 26 7b 44 38 |Groups.G|UID.&{D8|
|00001200| 32 44 34 38 42 36 2d 43 | 37 46 31 2d 34 44 43 31 |2D48B6-C|7F1-4DC1|
|00001210| 2d 42 46 37 30 2d 33 46 | 38 38 45 41 32 36 44 46 |-BF70-3F|88EA26DF|
|00001220| 42 38 7d 06 47 72 6f 75 | 70 73 0e 00 00 00 |B8}.Grou|ps.... |
+--------+-------------------------+-------------------------+--------+--------+
